home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 36
/
036.d81
/
subliminal msg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
75 lines
0 sys65418:poke648,4:poke53272,21:poke56576,199
5 ifa=.thena=1:load"subliminal.ml",8,1
10 gosub60100:clr:printchr$(142);
20 print"[147] subliminal messenger"
110 rem set colors, timing, and message
120 print"enter screen color for message: [157][157][157]";:de$=str$(peek(53281)and15)
130 nc=3:sb=len(de$):gosub60500:n=val(a$)
135 ifn>255ora$=""thenprint"[145][145]";:goto120
140 poke49362,n
150 print"enter border color for message: [157][157][157]";:de$=str$(peek(53280)and15)
160 sb=len(de$):gosub60500:n=val(a$)
165 ifn>255ora$=""thenprint"[145]";:goto150
170 poke49363,n
180 print"enter text color for message: [157][157][157]";:de$=str$(peek(646)and15)
190 sb=len(de$):gosub60500:n=val(a$)
195 ifn>255ora$=""thenprint"[145]";:goto180
200 poke49364,n
205 print"how often should the message blink?"
210 print"(in sixtieths of a second -- 1-255)":print"---> [157][157][157]";
220 de$=" 60":sb=3:gosub60500:n=val(a$)
225 ifn>255ora$=""thenprint"[145][145]";:goto210
227 poke49365,n
228 print"every time the message blinks, how long"
229 print"should it be displayed on the screen?"
230 print"(in sixtieths of a second -- 1-255)"
240 print"--> [157][157][157]";:de$=" 5":sb=2:gosub60500:n=val(a$)
243 ifn>255ora$=""thenprint"[145]";:goto240
245 poke49366,n
247 print"what is the message you'd like to have"
250 print"displayed? (max. 38 characters)"
255 nc=38:mm=1:de$="":sb=1:gosub60500
260 te$=a$
270 poke648,160:printchr$(147);:forx=1to12:printchr$(17);:next
280 forx=1to20-len(text$)/2:printchr$(32);:next:printtext$
290 poke648,4
340 sys49152
350 print" press space to exit to basic"
360 print" press return to return to loadstar"
370 a=peek(203):ifa=1then60000
380 ifa=60thenend
390 goto370
999 stop
60000 sys65418:open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
60010 print"[147]";:ifer<>63thenend
60015 sys65418:poke648,4:poke53272,21:poke56576,199
60020 load"hello connect",8
60100 poke53280,7:poke53281,7
60110 print"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 fora=1to23:print"[221]"spc(38)"[221]";:next
60130 fora=217to242:pokea,peek(a)or128:next
60140 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
60150 print"[149] [204][207][193][196][211][212][193][210] [208]resents:"
60160 print" [146]"
60170 print" [211]ubliminal [205]essenger [129] [146]"
60180 print" [129] [146]"
60190 print" [194]y: [200]arold [196]roid [129] [146]"
60200 print" [129] [146]"
60210 print" ([195])opyright 1987 [129] [146]"
60220 print" [129] [146]"
60230 print" [129] [146]"
60240 print"[149] [208]ress [211][208][193][195][197] to continue.":poke198,.
60250 geta$:ifa$<>" "then60250
60260 return
60500 printright$(de$,sb-1)"[164]";:a$=de$:fora=sbtonc+1
60510 getb$:ifb$=""then60510
60520 ifb$=chr$(13)then60580
60530 ifb$=chr$(20)anda>1thena=a-1:print"[157][157] [157][157][164]";:a$=left$(a$,a-1):goto60510
60535 ifa=nc+1then60510
60537 ifb$>="[193]"andb$<="[218]"thenb$=chr$(asc(b$)-128)
60540 ifb$>="0"andb$<="9"then60570
60550 if(mm)andb$>=" "andb$<="z"then60570
60560 goto60510
60570 print"[157]"b$;:poke212,.:print"[164]";:a$=a$+b$:next
60580 print"[157] ":return